// C Source File
// Created 8/27/2009; 10:59:16 AM

#include <tigcclib.h>

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// CreateWorldMap /////////////////////////////////////////////////////////////////////////////////////////////////
// creates the world map //////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
void CreateWorldMap()
{
	// open file for reading
	FILE *f = fopen("civmap0","rb");
	if(f != NULL)
	{
		HANDLE dlg = H_NULL;
		if((dlg = DialogNewSimple(120,35)) != H_NULL)
		{
	   	// format the dialog box
	    DialogAddTitle(dlg,"Confirm",BT_OK,BT_CANCEL);
	    DialogAddText(dlg,25,15,"Overwrite civmap0?");
	    
	    int key = 0;
	    while (key != KEY_ENTER && key != KEY_ESC) { key = DialogDo(dlg,CENTER,CENTER,NULL,NULL); }
	    
			FontSetSys(F_4x6);
	    if(key != KEY_ENTER) return;
		}
		else return;
		
		fclose(f);
	}	
	
	char _worldmap[43][91]={{1,1,1,1,1,1,1,1,5,5,1,1,1,5,1,1,1,1,1,1,1,1,1,1,5,5,1,1,1,1,1,1,1,1,1,1,5,1,1,5,1,5,1,1,5,1,1,5,1,1,1,5,1,1,1,1,1,5,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,4,5,5,1,1,1,1,4,4,1,1,4,1,4,4,5,5,4,1,1,1,5,5,5,5,5,1,1,1,1,5,4,7,1,1,5,1,5,1,1,1,5,1,1,7,5,1,1,1,1,1,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,5,5,5,5,5,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,4,4,4,4,1,1,4,5,5,5,5,5,5,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,5,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,5,1,1,1,1,1,1,1,1,1},
											 {5,5,6,5,5,5,5,5,5,1,1,1,1,4,1,1,1,1,1,4,1,4,4,1,1,1,4,5,5,5,5,5,5,5,4,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,4,1,1,1,1,1,1,5,5,5,5,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {6,6,6,6,6,4,4,4,5,5,1,1,1,5,4,4,4,1,1,1,1,4,4,1,1,1,1,1,4,5,5,5,5,5,4,1,1,1,1,1,1,1,1,4,5,1,1,1,1,1,1,1,4,1,1,5,5,5,5,5,5,5,4,4,4,4,1,1,1,1,5,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {6,6,6,6,6,6,4,4,4,4,5,5,5,5,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,4,5,5,5,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,4,4,1,4,4,1,1,4,1,1,5,5,5,5,5,1,1,1},
											 {1,6,5,6,6,4,4,4,4,8,5,4,4,4,4,4,4,4,4,1,1,1,4,1,1,1,1,1,1,1,4,5,5,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,1,1,4,4,4,4,4,4,4,4,4,5,5,5,5,4,4,5,5,4,5,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1},
											 {6,6,5,4,4,4,4,4,4,8,8,4,4,4,6,6,4,4,1,1,1,1,4,1,4,1,1,1,1,1,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,5,5,5,5,4,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4},
											 {1,4,4,4,4,4,4,4,4,4,8,4,4,4,4,6,6,4,1,1,1,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,6,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,7,7,4,4,4,4,4,1,1,1,1,4,4,4,4,4},
											 {4,4,4,1,1,1,1,4,4,4,8,8,4,4,4,6,6,4,4,1,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,6,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,7,7,1,1,1,1,1,1,1,4,4,1,1,1,1},
											 {1,4,1,1,1,1,1,1,4,4,6,8,6,6,4,4,4,4,4,1,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,1,1,1,1},
											 {4,4,1,1,1,1,1,1,4,4,4,8,8,6,4,4,4,4,6,6,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,4,4,6,8,6,4,4,4,4,6,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,7,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,4,4,6,8,6,4,4,1,4,3,6,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,6,6,4,7,4,4,1,4,4,4,4,4,4,4,4,4,6,6,4,4,4,4,7,4,4,4,4,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,4,6,8,8,4,4,4,1,8,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,4,7,7,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,7,7,4,4,4,4,4,4,4,1,1,4,1,1,4,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,4,4,4,8,2,4,4,4,8,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,7,4,1,1,4,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,4,1,1,7,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,4,4,4,2,2,2,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,7,7,4,4,4,4,4,4,4,4,4,4,4,4,4,7,7,7,7,4,4,4,1,1,4,1,7,4,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,1,1,1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,7,8,7,4,4,4,4,4,4,4,4,4,4,7,7,7,7,7,4,4,4,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,1,1,1,1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,1,2,2,1,1,4,4,7,7,4,4,4,4,4,4,4,4,7,7,7,7,7,7,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,3,1,1,1,1,1,1,1,1,1,1,4,1,8,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,2,2,2,2,2,4,4,4,1,8,2,2,4,1,1,1,4,4,4,6,6,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,3,1,1,1,1,1,1,1,1,1,4,1,4,8,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,2,2,8,8,2,2,2,4,4,1,8,2,1,1,1,1,1,4,6,6,6,4,4,1,1,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,8,3,1,1,1,1,1,1,1,1,1,1,3,3,1,1,1,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,2,2,2,8,8,2,2,4,4,1,1,1,1,1,1,1,1,1,4,6,4,1,1,1,1,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,2,2,2,2,2,2,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,1,1,1,1,1,1,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,2,2,4,4,4,4,1,1,1,1,1,1,1,1,4,4,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,3,3,3,3,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1,1,4,1,1,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,4,3,3,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,4,4,4,7,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,4,1,1,4,4,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,4,4,4,7,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,1,1,1,4,4,1,1,1,1,1,1,4,4,1,1,7,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,8,4,4,4,7,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,8,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,3,1,1,4,4,1,1,1,1,1,1,1,4,4,7,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,8,4,7,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,8,8,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,7,7,8,8,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,3,3,1,1,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,7,7,7,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,1,4,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,7,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,1,4,4,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,7,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,8,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,2,2,4,4,4,7,7,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,2,2,4,4,4,4,7,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,2,4,4,4,4,7,1,1,1,1,1,4,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,1,4,4,4,7,1,1,1,1,1,4,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},
											 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}};
											 
	char wWidth = 91;
	char wHeight = 43;
	
	char name[20] = "Earth (Medium)";
	
	// open file for writing
	if ((f = fopen("civmap0","wb")) == NULL) 
		return;
		
	// write structure data to the file
	DrawStr(5, 10, "civmap0: Earth..", A_NORMAL);
	fwrite(name, 20*sizeof(char),1,f);
	fwrite(&wWidth,sizeof(char),1,f);
	fwrite(&wHeight,sizeof(char),1,f);
	fwrite(_worldmap,wWidth*wHeight*sizeof(char),1,f);

	// append the file ID tag
	fputc(0,f);
	fputs("civ",f);
	fputc(0,f);
	fputc(OTH_TAG,f);
	
	// close the file
	fclose(f);
}

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Main Function //////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
void _main(void)
{
	ClrScr();
	FontSetSys(F_4x6);
	DrawStr(0,0, "Installing Civ2000 Maps..", A_NORMAL);
	
	CreateWorldMap();
	
	DrawStr(0, 75, "Finished.", A_NORMAL);
	ngetchx();
}
